home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte1187.arc / TM1.BAS < prev   
BASIC Source File  |  1987-09-15  |  896b  |  28 lines
  1. 1 REM TM1 -- EASY TM SIMULATOR
  2. 199 REM TAPE
  3. 200 T$="XXXXXbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"
  4. 210 S$="0":REM STARTING STATE = 0
  5. 220 P=1:REM STARTING POSITION ON TAPE = 1
  6. 400 PRINT:PRINT T$
  7. 410 PRINT TAB(P);"^":REM POSITION OF READ-WRITE HEAD
  8. 420 IF S$ = "." THEN END
  9. 499 REM L.500 - 520 DOES STATE TABLE LOOKUP
  10. 500 M$= S$ + MID$(T$,P,1)
  11. 510 RESTORE
  12. 520 READ R$:IF MID$(R$,1,2) <> M$ THEN 520
  13. 600 PRINT:PRINT S$,R$
  14. 610 INPUT "",X
  15. 799 REM REWRITE SYMBOL ON TAPE
  16. 800 MID$(T$,P,1)=MID$(R$,4,1)
  17. 819 REM MOVE LEFT ON TAPE
  18. 820 IF MID$(R$,6,1)="L" THEN P=P-1
  19. 829 REM MOVE RIGHT ON TAPE
  20. 830 IF MID$(R$,6,1)="R" THEN P=P+1
  21. 840 S$=MID$(R$,5,1):REM DETERMINE NEW STATE
  22. 900 GOTO 400
  23. 2000 DATA "0X-b1R","0b-E.." :REM STATE 0
  24. 2010 DATA "1X-b0R","1b-O.." :REM STATE 1
  25. ,1):REM DETERMINE NEW STATE
  26. 900 GOTO 400
  27. 2000 DATA "0X-b1R","0b-E.." :REM STATE 0
  28. 2010 DATA "1X-b0R","1b-O.." :REM S